home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / graphics / 3dvect37.zip / SEQ.INC < prev    next >
Text File  |  1994-06-22  |  22KB  |  798 lines
  1. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  2. ;
  3. ; Filename     : sequence.inc
  4. ; Included from: Main.asm
  5. ; Description  : Object and Sequence for that cheezy animation
  6. ;
  7. ; Written by: John McCarthy
  8. ;             1316 Redwood Lane
  9. ;             Pickering, Ontario.
  10. ;             Canada, Earth, Milky Way (for those out-of-towners)
  11. ;             L1X 1C5
  12. ;
  13. ; Internet/Usenet:  BRIAN.MCCARTHY@CANREM.COM
  14. ;         Fidonet:  Brian McCarthy 1:229/15
  15. ;   RIME/Relaynet: ->CRS
  16. ;
  17. ; Home phone, (905) 831-1944, don't call at 2 am eh!
  18. ;
  19. ; John Mccarthy would really love to work for a company programming Robots
  20. ; or doing some high intensive CPU work.  Hint. Hint.
  21. ;
  22. ; Send me your protected mode source code!
  23. ; Send me your Objects!
  24. ; But most of all, Send me a postcard!!!!
  25. ;
  26. ;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
  27. ;
  28. bigoildrum dd -1
  29.            dd offset oil1   - offset $ - 4
  30.  
  31. oil1       dw 16
  32.            dw 9
  33.            dw 0,0,0,0,0,0,0,0
  34.            dw 17 dup (0)
  35.  
  36.            dw  290,-350,-700 ; 1
  37.            dw  700,-350,-290 ; 2
  38.            dw  700,-350, 290 ; 3
  39.            dw  290,-350, 700 ; 4
  40.            dw -290,-350, 700 ; 5
  41.            dw -700,-350, 290 ; 6
  42.            dw -700,-350,-290 ; 7
  43.            dw -290,-350,-700 ; 8
  44.            dw  290, 350,-700 ; 9
  45.            dw  700, 350,-290 ;10
  46.            dw  700, 350, 290 ;11
  47.            dw  290, 350, 700 ;12
  48.            dw -290, 350, 700 ;13
  49.            dw -700, 350, 290 ;14
  50.            dw -700, 350,-290 ;15
  51.            dw -290, 350,-700 ;16
  52.  
  53.            dw 0,0,0,16*2+ 6,0, 1,8,16,9,1
  54.            dw 0,0,0,16*2+ 8,0, 2,1,9,10,2
  55.            dw 0,0,0,16*2+10,0, 3,2,10,11,3
  56.            dw 0,0,0,16*2+12,0, 4,3,11,12,4
  57.            dw 0,0,0,16*2+14,0, 5,4,12,13,5
  58.            dw 0,0,0,16*2+11,0, 6,5,13,14,6
  59.            dw 0,0,0,16*2+ 9,0, 7,6,14,15,7
  60.            dw 0,0,0,16*2+ 7,0, 8,7,15,16,8
  61.            dw 0,0,0,16*2+15,0, 1,2,3,4,5,6,7,8,1
  62.  
  63. archmiddle dd -1
  64.            dd offset arch1 - offset $ - 4
  65.  
  66. arch1      dw 20
  67.            dw 10
  68.            dw 0,0,0,0,0,0,0,0
  69.            dw 17 dup (0)
  70.  
  71.            dw  402, 240,-100 ; 1
  72.            dw  402, 240, 100 ; 2
  73.            dw  402,-240,-100 ; 3
  74.            dw  402,-240, 100 ; 4
  75.            dw -402,-240,-100 ; 5
  76.            dw -402,-240, 100 ; 6
  77.            dw -402, 240,-100 ; 7
  78.            dw -402, 240, 100 ; 8
  79.  
  80.            dw -330, 100,-100 ; 9
  81.            dw -330, 100, 100 ; 10
  82.            dw -250,  50,-100 ; 11
  83.            dw -250,  50, 100 ; 12
  84.            dw -100,   0,-100 ; 13
  85.            dw -100,   0, 100 ; 14
  86.            dw   50,  50,-100 ; 15
  87.            dw   50,  50, 100 ; 16
  88.            dw  130, 100,-100 ; 17
  89.            dw  130, 100, 100 ; 18
  90.            dw  200, 240,-100 ; 19
  91.            dw  200, 240, 100 ; 20
  92.  
  93.            dw iterate+onscr+check,0,0,0,0,1,3,5,7,1
  94.  
  95.                 dw 0
  96.                 dw 6
  97.                 dw 25 dup (0)
  98.  
  99.                 dw both,0,0,2,0 ,1,3,17,19,1
  100.                 dw both,0,0,2,0 ,17,3,15,17
  101.                 dw both,0,0,2,0 ,15,3,5,13,15
  102.                 dw both,0,0,2,0 ,13,5,11,13
  103.                 dw both,0,0,2,0 ,11,5,9,11
  104.                 dw both,0,0,2,0 ,9,5,7,9
  105.  
  106.            dw iterate+onscr+check,0,0,0,0,2,8,6,4,2
  107.  
  108.                 dw 0
  109.                 dw 6
  110.                 dw 0,0,0,0,0,0,0,1
  111.                 dw 17 dup (0)
  112.  
  113.                 dw both,0,0,9,0 ,1,3,17,19,1
  114.                 dw both,0,0,9,0 ,17,3,15,17
  115.                 dw both,0,0,9,0 ,15,3,5,13,15
  116.                 dw both,0,0,9,0 ,13,5,11,13
  117.                 dw both,0,0,9,0 ,11,5,9,11
  118.                 dw both,0,0,9,0 ,9,5,7,9
  119.  
  120.            dw 0,0,0,10,0, 3,4,6,5,3
  121.            dw 0,0,0,3,0, 1,19,20,2,1
  122.  
  123.            dw 0,0,0,7,0, 7,8,10,9,7
  124.            dw 0,0,0,6,0, 9,10,12,11,9
  125.            dw 0,0,0,5,0, 11,12,14,13,11
  126.            dw 0,0,0,4,0, 13,14,16,15,13
  127.            dw 0,0,0,3,0, 15,16,18,17,15
  128.            dw 0,0,0,2,0, 17,18,20,19,17
  129.  
  130. archnorden db 5,6,7,8,9,10,11,12,13,14,15
  131.  
  132. archsuden  db 14,9,14,12,11,10,9,8,7,8,15
  133. archocten  db 7,14,14,12,11,10,9,8,7,8,15
  134. archwesten db 8,14,7,8,9,10,11,12,13,8,15
  135. archersten db 14,8,8,8,9,10,11,12,13,8,15
  136.  
  137. archmiddl6 dd -1
  138.            dd offset arch6 - offset $ - 4
  139.  
  140. arch6      dw 20
  141.            dw 10
  142.            dw 0,0,0,0,0,0,0,0
  143.            dw 17 dup (0)
  144.  
  145.            dw -100, 240,-402; 1
  146.            dw  100, 240,-402; 2
  147.            dw -100,-240,-402; 3
  148.            dw  100,-240,-402; 4
  149.            dw -100,-240, 402; 5
  150.            dw  100,-240, 402; 6
  151.            dw -100, 240, 402; 7
  152.            dw  100, 240, 402; 8
  153.  
  154.            dw -100, 100, 330; 9
  155.            dw  100, 100, 330; 10
  156.            dw -100,  50, 250; 11
  157.            dw  100,  50, 250; 12
  158.            dw -100,   0, 100; 13
  159.            dw  100,   0, 100; 14
  160.            dw -100,  50, -50; 15
  161.            dw  100,  50, -50; 16
  162.            dw -100, 100,-130; 17
  163.            dw  100, 100,-130; 18
  164.            dw -100, 240,-200; 19
  165.            dw  100, 240,-200; 20
  166.  
  167.            dw iterate+onscr+check,0,0,0,0,1,3,5,7,1
  168.  
  169.                 dw 0
  170.                 dw 6
  171.                 dw 25 dup (0)
  172.  
  173.                 dw both,0,0,3,0 ,1,3,17,19,1
  174.                 dw both,0,0,3,0 ,17,3,15,17
  175.                 dw both,0,0,3,0 ,15,3,5,13,15
  176.                 dw both,0,0,3,0 ,13,5,11,13
  177.                 dw both,0,0,3,0 ,11,5,9,11
  178.                 dw both,0,0,3,0 ,9,5,7,9
  179.  
  180.            dw iterate+onscr+check,0,0,0,0,2,8,6,4,2
  181.  
  182.                 dw 0
  183.                 dw 6
  184.                 dw 0,0,0,0,0,0,0,1
  185.                 dw 17 dup (0)
  186.  
  187.                 dw both,0,0,9,0 ,1,3,17,19,1
  188.                 dw both,0,0,9,0 ,17,3,15,17
  189.                 dw both,0,0,9,0 ,15,3,5,13,15
  190.                 dw both,0,0,9,0 ,13,5,11,13
  191.                 dw both,0,0,9,0 ,11,5,9,11
  192.                 dw both,0,0,9,0 ,9,5,7,9
  193.  
  194.            dw 0,0,0,10,0,3,4,6,5,3
  195.            dw 0,0,0,2,0, 1,19,20,2,1
  196.  
  197.            dw 0,0,0,2,0, 7,8,10,9,7
  198.            dw 0,0,0,3,0, 9,10,12,11,9
  199.            dw 0,0,0,4,0, 11,12,14,13,11
  200.            dw 0,0,0,5,0, 13,14,16,15,13
  201.            dw 0,0,0,6,0, 15,16,18,17,15
  202.            dw 0,0,0,7,0, 17,18,20,19,17
  203.  
  204.  
  205. archmiddl3 dd -1
  206.            dd offset arch3 - offset $ - 4
  207.  
  208. arch3      dw 20
  209.            dw 10
  210.            dw 0,0,0,0,0,0,0,0
  211.            dw 17 dup (0)
  212.  
  213.            dw -402, 240, 100 ; 1
  214.            dw -402, 240,-100 ; 2
  215.            dw -402,-240, 100 ; 3
  216.            dw -402,-240,-100 ; 4
  217.            dw  402,-240, 100 ; 5
  218.            dw  402,-240,-100 ; 6
  219.            dw  402, 240, 100 ; 7
  220.            dw  402, 240,-100 ; 8
  221.  
  222.            dw  330, 100, 100 ; 9
  223.            dw  330, 100,-100 ; 10
  224.            dw  250,  50, 100 ; 11
  225.            dw  250,  50,-100 ; 12
  226.            dw  100,   0, 100 ; 13
  227.            dw  100,   0,-100 ; 14
  228.            dw  -50,  50, 100 ; 15
  229.            dw  -50,  50,-100 ; 16
  230.            dw -130, 100, 100 ; 17
  231.            dw -130, 100,-100 ; 18
  232.            dw -200, 240, 100 ; 19
  233.            dw -200, 240,-100 ; 20
  234.  
  235.            dw iterate+onscr+check,0,0,0,0,1,3,5,7,1
  236.  
  237.                 dw 0
  238.                 dw 6
  239.                 dw 25 dup (0)
  240.  
  241.                 dw both,0,0,9,0 ,1,3,17,19,1
  242.                 dw both,0,0,9,0 ,17,3,15,17
  243.                 dw both,0,0,9,0 ,15,3,5,13,15
  244.                 dw both,0,0,9,0 ,13,5,11,13
  245.                 dw both,0,0,9,0 ,11,5,9,11
  246.                 dw both,0,0,9,0 ,9,5,7,9
  247.  
  248.            dw iterate+onscr+check,0,0,0,0,2,8,6,4,2
  249.  
  250.                 dw 0
  251.                 dw 6
  252.                 dw 0,0,0,0,0,0,0,1
  253.                 dw 17 dup (0)
  254.  
  255.                 dw both,0,0,3,0 ,1,3,17,19,1
  256.                 dw both,0,0,3,0 ,17,3,15,17
  257.                 dw both,0,0,3,0 ,15,3,5,13,15
  258.                 dw both,0,0,3,0 ,13,5,11,13
  259.                 dw both,0,0,3,0 ,11,5,9,11
  260.                 dw both,0,0,3,0 ,9,5,7,9
  261.  
  262.            dw 0,0,0,10,0, 3,4,6,5,3
  263.            dw 0,0,0,2,0, 1,19,20,2,1
  264.  
  265.            dw 0,0,0,3,0, 7,8,10,9,7
  266.            dw 0,0,0,4,0, 9,10,12,11,9
  267.            dw 0,0,0,5,0, 11,12,14,13,11
  268.            dw 0,0,0,6,0, 13,14,16,15,13
  269.            dw 0,0,0,7,0, 15,16,18,17,15
  270.            dw 0,0,0,8,0, 17,18,20,19,17
  271.  
  272. archmiddl4 dd -1
  273.            dd offset arch4 - offset $ - 4
  274.  
  275. arch4      dw 20
  276.            dw 10
  277.            dw 0,0,0,0,0,0,0,0
  278.            dw 17 dup (0)
  279.  
  280.            dw  100, 240, 402 ; 1
  281.            dw -100, 240, 402 ; 2
  282.            dw  100,-240, 402 ; 3
  283.            dw -100,-240, 402 ; 4
  284.            dw  100,-240,-402 ; 5
  285.            dw -100,-240,-402 ; 6
  286.            dw  100, 240,-402 ; 7
  287.            dw -100, 240,-402 ; 8
  288.  
  289.            dw  100, 100,-330 ; 9
  290.            dw -100, 100,-330 ; 10
  291.            dw  100,  50,-250 ; 11
  292.            dw -100,  50,-250 ; 12
  293.            dw  100,   0,-100 ; 13
  294.            dw -100,   0,-100 ; 14
  295.            dw  100,  50,  50 ; 15
  296.            dw -100,  50,  50 ; 16
  297.            dw  100, 100, 130 ; 17
  298.            dw -100, 100, 130 ; 18
  299.            dw  100, 240, 200 ; 19
  300.            dw -100, 240, 200 ; 20
  301.  
  302.            dw iterate+onscr+check,0,0,0,0,1,3,5,7,1
  303.  
  304.                 dw 0
  305.                 dw 6
  306.                 dw 25 dup (0)
  307.  
  308.                 dw both,0,0,9,0 ,1,3,17,19,1
  309.                 dw both,0,0,9,0 ,17,3,15,17
  310.                 dw both,0,0,9,0 ,15,3,5,13,15
  311.                 dw both,0,0,9,0 ,13,5,11,13
  312.                 dw both,0,0,9,0 ,11,5,9,11
  313.                 dw both,0,0,9,0 ,9,5,7,9
  314.  
  315.            dw iterate+onscr+check,0,0,0,0,2,8,6,4,2
  316.  
  317.                 dw 0
  318.                 dw 6
  319.                 dw 0,0,0,0,0,0,0,1
  320.                 dw 17 dup (0)
  321.  
  322.                 dw both,0,0,4,0 ,1,3,17,19,1
  323.                 dw both,0,0,4,0 ,17,3,15,17
  324.                 dw both,0,0,4,0 ,15,3,5,13,15
  325.                 dw both,0,0,4,0 ,13,5,11,13
  326.                 dw both,0,0,4,0 ,11,5,9,11
  327.                 dw both,0,0,4,0 ,9,5,7,9
  328.  
  329.            dw 0,0,0,10,0, 3,4,6,5,3
  330.            dw 0,0,0,2,0, 1,19,20,2,1
  331.  
  332.            dw 0,0,0,7,0, 7,8,10,9,7
  333.            dw 0,0,0,6,0, 9,10,12,11,9
  334.            dw 0,0,0,5,0, 11,12,14,13,11
  335.            dw 0,0,0,4,0, 13,14,16,15,13
  336.            dw 0,0,0,3,0, 15,16,18,17,15
  337.            dw 0,0,0,2,0, 17,18,20,19,17
  338.  
  339. archend    dd -1
  340.            dd offset arch2 - offset $ - 4
  341.  
  342. arch2      dw 21
  343.            dw 11
  344.            dw 0,0,0,0,0,0,0,0
  345.            dw 17 dup (0)
  346.  
  347.            dw  402, 240,-100 ; 1
  348.            dw  402, 240, 100 ; 2
  349.            dw  402,-240,-100 ; 3
  350.            dw  402,-240, 100 ; 4
  351.            dw -402,-240,-100 ; 5
  352.            dw -402,-240, 100 ; 6
  353.            dw -402, 240,-100 ; 7
  354.            dw -402, 240, 100 ; 8
  355.  
  356.            dw -330, 100,-100 ; 9
  357.            dw -330, 100, 100 ; 10
  358.            dw -250,  50,-100 ; 11
  359.            dw -250,  50, 100 ; 12
  360.            dw -100,   0,-100 ; 13
  361.            dw -100,   0, 100 ; 14
  362.            dw   50,  50,-100 ; 15
  363.            dw   50,  50, 100 ; 16
  364.            dw  130, 100,-100 ; 17
  365.            dw  130, 100, 100 ; 18
  366.            dw  200, 240,-100 ; 19
  367.            dw  200, 240, 100 ; 20
  368.  
  369.            dw  200,-240, 100 ; 21
  370.  
  371.            dw iterate+onscr+check,0,0,0,0,1,3,5,7,1
  372.  
  373.                 dw 0
  374.                 dw 6
  375.                 dw 25 dup (0)
  376.  
  377.                 dw both,0,0,0,0 ,1,3,17,19,1
  378.                 dw both,0,0,0,0 ,17,3,15,17
  379.                 dw both,0,0,0,0 ,15,3,5,13,15
  380.                 dw both,0,0,0,0 ,13,5,11,13
  381.                 dw both,0,0,0,0 ,11,5,9,11
  382.                 dw both,0,0,0,0 ,9,5,7,9
  383.  
  384.            dw iterate+onscr+check,0,0,0,0,2,8,6,4,2
  385.  
  386.                 dw 0
  387.                 dw 6
  388.                 dw 0,0,0,0,0,0,0,1
  389.                 dw 17 dup (0)
  390.  
  391.                 dw both,0,0,1,0 ,20,17,19,20
  392.                 dw both,0,0,1,0 ,17,20,15,17
  393.                 dw both,0,0,1,0 ,15,20,5,13,15
  394.                 dw both,0,0,1,0 ,13,5,11,13
  395.                 dw both,0,0,1,0 ,11,5,9,11
  396.                 dw both,0,0,1,0 ,9,5,7,9
  397.  
  398.            dw 0,0,0,10,0, 3,4,6,5,3
  399.            dw 0,0,0,9,0, 1,19,20,2,1
  400.            dw 0,0,0,2,0,  1,2,4,3,1
  401.  
  402.            dw 0,0,0,3,0, 7,8,10,9,7
  403.            dw 0,0,0,4,0, 9,10,12,11,9
  404.            dw 0,0,0,5,0, 11,12,14,13,11
  405.            dw 0,0,0,6,0, 13,14,16,15,13
  406.            dw 0,0,0,7,0, 15,16,18,17,15
  407.            dw 0,0,0,8,0, 17,18,20,19,17
  408.  
  409. column     dd -1
  410.            dd offset colmn1 - offset $ - 4
  411.  
  412. colmn1     dw 16
  413.            dw 8
  414.            dw 0,0,0,0,0,0,0,0
  415.            dw 17 dup (0)
  416.  
  417.            dw  32,-450,-80 ; 1
  418.            dw  80,-450,-32 ; 2
  419.            dw  80,-450, 32 ; 3
  420.            dw  32,-450, 80 ; 4
  421.            dw -32,-450, 80 ; 5
  422.            dw -80,-450, 32 ; 6
  423.            dw -80,-450,-32 ; 7
  424.            dw -32,-450,-80 ; 8
  425.            dw  32, 450,-80 ; 9
  426.            dw  80, 450,-32 ;10
  427.            dw  80, 450, 32 ;11
  428.            dw  32, 450, 80 ;12
  429.            dw -32, 450, 80 ;13
  430.            dw -80, 450, 32 ;14
  431.            dw -80, 450,-32 ;15
  432.            dw -32, 450,-80 ;16
  433.  
  434.            dw 0,0,0,16*7+ 6,0, 1,8,16,9,1
  435.            dw 0,0,0,16*7+ 8,0, 2,1,9,10,2
  436.            dw 0,0,0,16*7+10,0, 3,2,10,11,3
  437.            dw 0,0,0,16*7+13,0, 4,3,11,12,4
  438.            dw 0,0,0,16*7+15,0, 5,4,12,13,5
  439.            dw 0,0,0,16*7+12,0, 6,5,13,14,6
  440.            dw 0,0,0,16*7+ 9,0, 7,6,14,15,7
  441.            dw 0,0,0,16*7+ 7,0, 8,7,15,16,8
  442.  
  443.            align 16
  444.  
  445. ship1      dd 7500
  446.            dd offset hship1 - offset $ - 4
  447.            dd -1
  448.            dd offset lship1 - offset $ - 4
  449.  
  450.            sbc equ 1 ; ship body colour
  451.            suc equ 4 ; ship underside colour
  452.            swc equ 5 ; ship window colour
  453.            sec equ 7 ; ship engine colour
  454.  
  455. lship1     dw 10   ; lo resolution ship
  456.            dw 6
  457.  
  458.            dw 25 dup (0)
  459.  
  460.            ;    x   y   z
  461.            dw    0, 18,188  ; 0
  462.            dw    0,-42,-68  ; 1
  463.            dw  -48, 18,-82  ; 2
  464.            dw   48, 18,-82  ; 3
  465.            dw   34, 18,-14  ; 4
  466.            dw  -34, 18,-14  ; 5
  467.            dw -100, 18,-22  ; 6
  468.            dw  -74, 18,130  ; 7
  469.            dw  100, 18,-22  ; 8
  470.            dw   74, 18,130  ; 9
  471.  
  472.            dw 0,0,0,16*sbc+10,0,3,4,2,3         ; engine
  473.            dw 0,0,0,16*sbc+10,0,6,8,7,3,6       ; top
  474.            dw 0,0,0,16*sbc+10,0,5,4,9,10,5
  475.            dw 0,0,0,16*sbc+10,0,2,1,3,2
  476.            dw 0,0,0,16*sbc+10,0,4,1,2,4
  477.  
  478.            dw iterate,0,0,16*suc+12,0,6,3,7,8,6   ; underside
  479.  
  480.                 dw 0,2
  481.                 dw 25 dup (0)
  482.  
  483.                 dw 0,0,0,16*suc+12,0,5,10,9,4,5
  484.                 dw 0,0,0,16*suc+12,0,1,4,3,1
  485.  
  486. hship1     dw 18   ; hi resolution ship
  487.            dw 16
  488.  
  489.            dw 25 dup (0)
  490.  
  491.            ;    x   y   z
  492.            dw    0, 18,188  ; 0
  493.            dw    0, -4, 94  ; 1
  494.            dw  -20, -4,-16  ; 2
  495.            dw    0,-30,-34  ; 3
  496.            dw   20, -4,-16  ; 4
  497.            dw    0,-42,-68  ; 5
  498.            dw  -48, 18,-82  ; 6
  499.            dw   48, 18,-82  ; 7
  500.            dw   34, 18,-14  ; 8
  501.            dw  -34, 18,-14  ; 9
  502.            dw  -60, 18,  0  ;10
  503.            dw  -80,-20, -6  ;11
  504.            dw -100, 18,-22  ;12
  505.            dw  -74, 18,130  ;13
  506.            dw   80,-20, -6  ;14
  507.            dw  100, 18,-22  ;15
  508.            dw   74, 18,130  ;16
  509.            dw   60, 18,  0  ;17
  510.  
  511.            dw 0,shade,0,16*sbc,0,10,3,2,1,10   ,0,0,0 ; front body
  512.            dw 0,shade,0,16*sbc,0,6,4,3,10,6    ,0,0,0
  513.            dw 0,shade,0,16*sbc,0,2,5,9,1,2     ,0,0,0
  514.            dw 0,shade,0,16*sbc,0,4,6,9,5,4     ,0,0,0
  515.            dw 0,wavey,0,16*swc,0,2,4,5,2              ; cockpit
  516.            dw 0,wavey,0,16*swc,0,3,4,2,3
  517.  
  518.            dw 0,shade,0,16*sbc,0,18,15,17,18   ,0,0,0 ; right arm
  519.            dw 0,shade,0,16*sbc,0,17,15,16,17   ,0,0,0
  520.            dw 0,shade,0,16*sbc,0,15,6,8,16,15  ,0,0,0
  521.            dw 0,shade,0,16*sbc,0,9,6,15,18,9   ,0,0,0
  522.  
  523.            dw 0,wavey,0,16*sec,0,8,6,7,8              ; engine
  524.  
  525.            dw 0,shade,0,16*sbc,0,11,12,6,10,11 ,0,0,0 ; left arm
  526.            dw 0,shade,0,16*sbc,0,12,13,7,6,12  ,0,0,0
  527.            dw 0,shade,0,16*sbc,0,13,12,14,13   ,0,0,0
  528.            dw 0,shade,0,16*sbc,0,14,12,11,14   ,0,0,0
  529.  
  530.            dw iterate,shade,0,16*suc,0,7,13,11,10,7  ,0,0,0 ; underside
  531.  
  532.               dw 0
  533.               dw 4
  534.               dw 25 dup (0)
  535.  
  536.               dw both,last,0,16*suc,0,14,11,13,14
  537.               dw both,last,0,16*suc,0,1,8,7,1
  538.               dw both,last,0,16*suc,0,9,18,16,8,9
  539.               dw both,last,0,16*suc,0,17,16,18,17
  540.  
  541. ; template sequence for animation sequencing.
  542.  
  543. ; note: all offsets are relative from original animation offset
  544. ; this way, animation sequences can be anywhere in memory and still run.
  545.  
  546.          align 4
  547.  
  548. animation1:
  549.  
  550.          j equ offset animation1
  551.          o equ offset
  552.  
  553.          dw 6 ; number of headers
  554.          dw o lists-j
  555.          dw o sequences-j
  556.  
  557. lists:
  558.          dw o head0-j ; pointers to sequence headers
  559.          dw o head1-j
  560.          dw o head2-j
  561.          dw o head3-j
  562.          dw o head4-j
  563.          dw o head5-j
  564.  
  565. sequences:
  566.          dw o moveit0-j  ; offsets to sequences
  567.          dw o moveit1-j
  568.          dw o moveit2-j
  569.          dw o moveit3-j
  570.          dw o moveit4-j
  571.          dw o moveit5-j
  572.  
  573. head0:
  574.          seq 0        ; headers to sequences
  575.          seq 1        ; eg do sequence 0, then 1, then 2...done
  576.          seq 2
  577.          seq 3
  578.          seq 4
  579.          done_all
  580.  
  581. head1:
  582.          done
  583.          seq 0
  584.          done
  585.  
  586. head2:
  587.          done
  588.          seq 1
  589.          done
  590.  
  591. head3:
  592.          done
  593.          seq 2
  594.          done
  595.  
  596. head4:
  597.          done
  598.          seq 3
  599.          done
  600.  
  601. head5:
  602.          seq 4
  603.          done
  604.  
  605. moveit0:
  606.          fade_off defpal    ; set up screen
  607.          set_mode xmode,xactual,yactual,pages
  608.          initialize
  609.          text runscreen
  610.          text runtext
  611.          fade_on  gamecolr
  612.          exit
  613.  
  614. moveit1:                    ; initialize objects and bitmaps
  615.          init_shape 0,ship1
  616.          init_shape 1,archmiddle
  617.          init_shape 2,archmiddl6
  618.          init_shape 3,archmiddl3
  619.          init_shape 4,archmiddl4
  620.          init_shape 5,archend
  621.          init_shape 6,column
  622.          init_shape 0,bigoildrum
  623.         ;init_shape 1,bigoildrum
  624.         ;init_shape 2,bigoildrum
  625.         ;init_shape 3,bigoildrum
  626.         ;init_shape 4,bigoildrum
  627.         ;init_shape 5,bigoildrum
  628.         ;init_shape 6,bigoildrum
  629.         ;init_shape 7,bigoildrum
  630.  
  631.          init_bitmap 0,sphere,15,15
  632.          init_bitmap 1,icon,15,15
  633.  
  634.          exit
  635.  
  636. moveit2:
  637.          i=0
  638.          new_object
  639.          location 819200,-291840,742400+i
  640.          angle 0,49152,0
  641.          shape 5
  642.          xref_palette archsuden
  643.          on object
  644.  
  645.          rept 7
  646.          i=i-800*256
  647.          new_object
  648.          location 819200,-291840,742400+i
  649.          no_rotation
  650.          shape 4
  651.          xref_palette archnorden
  652.          on object
  653.          endm
  654.  
  655.          i=0
  656.          new_object
  657.          location 742400+i,-291840,-819200
  658.          no_rotation
  659.          shape 5
  660.          xref_palette archocten
  661.          on object
  662.  
  663.          rept 7
  664.          i=i-800*256
  665.          new_object
  666.          location 742400+i,-291840,-819200
  667.          no_rotation
  668.          shape 1
  669.          xref_palette archnorden
  670.          on object
  671.          endm
  672.  
  673.          i=0
  674.          new_object
  675.          location -819200,-291840,-742400+i
  676.          angle 0,16384,0
  677.          shape 5
  678.          xref_palette archwesten
  679.          on object
  680.  
  681.          rept 7
  682.          i=i+800*256
  683.          new_object
  684.          location -819200,-291840,-742400+i
  685.          no_rotation
  686.          shape 2
  687.          xref_palette archnorden
  688.          on object
  689.          endm
  690.  
  691.          i=0
  692.          new_object
  693.          location -742400+i,-291840,819200
  694.          angle 0,32768,0
  695.          shape 5
  696.          xref_palette archersten
  697.          on object
  698.  
  699.          rept 7
  700.          i=i+800*256
  701.          new_object
  702.          location -742400+i,-291840,819200
  703.          no_rotation
  704.          shape 3
  705.          xref_palette archnorden
  706.          on object
  707.          endm
  708.  
  709.          i=0
  710.          rept 8
  711.          i=i-800*256
  712.          new_object
  713.          location 819200+i,-115200,-819200
  714.          no_rotation
  715.          shape 6
  716.          on object
  717.          endm
  718.  
  719.          i=0
  720.          rept 8
  721.          i=i+800*256
  722.          new_object
  723.          location -819200+i,-115200,819200
  724.          no_rotation
  725.          shape 6
  726.          on object
  727.          endm
  728.  
  729.          i=0
  730.          rept 8
  731.          i=i+800*256
  732.          new_object
  733.          location 819200,-115200,819200-i
  734.          no_rotation
  735.          shape 6
  736.          on object
  737.          endm
  738.  
  739.          i=0
  740.          rept 8
  741.          i=i+800*256
  742.          new_object
  743.          location -819200,-115200,-819200+i
  744.          no_rotation
  745.          shape 6
  746.          on object
  747.          endm
  748.  
  749.          new_object
  750.          location 0,-200000,0
  751.          full_rotation
  752.          angle 0,0,0
  753.          shape 0
  754.          on object
  755.  
  756.          camera
  757.  
  758.          move 1100000,-400000,-4900000,380
  759.          wait_for lc,0
  760.  
  761.          point_obj -1000000,-300000,-5100000,120
  762.          wait_for ac,0
  763.  
  764.          move -1100000,1600000,-1900000,280
  765.          point_obj 0,0,0,280
  766.          wait_for lc,0
  767.  
  768.          move 2200000,-100000,900000,180
  769.          point_obj 0,0,0,180
  770.          wait_for lc,0
  771.  
  772.          move -2200000,-3100000,2900000,80
  773.          point_obj 0,0,0,80
  774.          wait_for lc,0
  775.  
  776.          move 2200000, 2100000,-1900000,80
  777.          point_obj 0,0,0,80
  778.          wait_for lc,0
  779.  
  780.          move -2200000,-100000,0,80
  781.          point_obj 0,0,0,80
  782.          wait_for lc,0
  783.  
  784.          exit
  785.  
  786. moveit3:
  787. ; put your commands here.
  788.          exit
  789.  
  790. moveit4:
  791. ; put your commands here.
  792.          exit
  793.  
  794. moveit5:
  795. ; put your commands here.
  796.          exit
  797.  
  798.